home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / LinieDemoV.AMOS / LinieDemoV.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  831 b   |  31 lines
  1. ' *************************************  
  2. ' *                                   *  
  3. ' *          Linie Demo V V1.0        *    
  4. ' *       Written by Chris Hodges     *      
  5. ' *                                   *  
  6. ' *************************************  
  7. '
  8. Screen Open 0,320,256,32,0
  9. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls : Hide 
  10. Degree 
  11. For A=0 To 15
  12.   Colour A,Min(A,7)*$200+Min(Max(A-7,0),7)*$20
  13.   Colour 31-A,Min(A,7)*$200+Min(Max(A-7,0),7)*$20
  14. Next 
  15. Shift Down 2,1,31,1
  16. Repeat 
  17.   Cls 0
  18.   S=Rnd(359) : R=1 : W=0 : C=0 : RS=Rnd(2)+1
  19.   Home : A$="DR�CKEN SIE EINE TASTE!"
  20.   For A=1 To Len(A$)
  21.     Pen 31-A : Print Mid$(A$,A,1);
  22.   Next 
  23.   Plot 160,128,0
  24.   Repeat 
  25.     Add R,RS : Add W,S
  26.     X=Cos(W)*(R/10) : Y=Sin(W)*(R/10)
  27.     Add C,1,1 To 31
  28.     Ink C : Draw To 160+X,128+Y
  29.     I$=Inkey$
  30.   Until I$<>""
  31. Until I$="q"